﻿Imports QuanLyBanChau.PhieuNhap_dao
Public Class PhieuNhap_bus
    Public Shared Function Get_PhieuNhapBUS()
        Dim dt As DataTable
        dt = New DataTable()
        dt = Get_PhieuNhapdao()
        Return dt
    End Function
    Public Shared Sub Insert_PhieuNhapBUS(ByVal PhieuNhap As PhieuNhap)
        insertPhieuNhapdao(PhieuNhap)
    End Sub


    Public Shared Sub Delete_PhieuNhapBUS(ByVal Maphieunhap As String)
        DeletePhieuNhapdao(Maphieunhap)

    End Sub

    Public Shared Sub Update_PhieuNhapBUS(ByVal PhieuNhap As PhieuNhap)
        UpdatePhieuNhapdao(PhieuNhap)
    End Sub
End Class
